home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / obrn-a_1.5_lib.lha / oberon-a / source2.lha / Source / Obsolete / RexxUtil.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  1.7 KB  |  64 lines
  1. (*************************************************************************
  2.  
  3.      $RCSfile: RexxUtil.mod $
  4.   Description: Rexx Variable Interface
  5.      Requires: The object file rexxvars.o must be explicitly linked with
  6.                the program.
  7.  
  8.    Created by: fjc (Frank Copeland)
  9.     $Revision: 3.6 $
  10.       $Author: fjc $
  11.         $Date: 1995/01/26 00:46:19 $
  12.  
  13.   Copyright © 1994, Frank Copeland.
  14.   This file is part of the Oberon-A Interface.
  15.   See Oberon-A.doc for conditions of use and distribution.
  16.  
  17. *************************************************************************)
  18.  
  19. <* STANDARD- *> <* INITIALISE+ *> <* MAIN- *>
  20.  
  21. MODULE [4] RexxUtil ["rexxvars.o"];
  22.  
  23. <*$ CaseChk-  IndexChk- LongVars+ NilChk+  *>
  24. <*$ RangeChk- StackChk- TypeChk-  OvflChk- *>
  25.  
  26. IMPORT SYS := SYSTEM, e := Exec, rx := Rexx;
  27.  
  28. (*------------------------------------*)
  29. PROCEDURE CheckRexxMsg * ["CheckRexxMsg"]
  30.   ( rexxmsg [8] : rx.RexxMsgPtr )
  31.   : BOOLEAN;
  32.  
  33.  
  34. (*------------------------------------*)
  35. PROCEDURE [0] GetRexxVar *
  36.   ( rexxmsg    : rx.RexxMsgPtr;
  37.     name       : ARRAY OF CHAR;
  38.     VAR result : e.STRPTR )
  39.   : LONGINT;
  40.  
  41.   (*------------------------------------*)
  42.   (* Secondary result is returned in register A1 *)
  43.   PROCEDURE GetRexxVar0 ["GetRexxVar"]
  44.     ( rexxmsg    [8] : rx.RexxMsgPtr;
  45.       name       [9] : ARRAY OF CHAR )
  46.     : LONGINT;
  47.  
  48. <*$ReturnChk-*>
  49. <*$CopyArrays-*>
  50. BEGIN
  51.   SYS.PUTREG (0, GetRexxVar0 (rexxmsg, name));
  52.   SYS.GETREG (9, result)
  53. END GetRexxVar;
  54.  
  55. (*------------------------------------*)
  56. PROCEDURE SetRexxVar * ["SetRexxVar"]
  57.   ( rexxmsg [8] : rx.RexxMsgPtr;
  58.     name    [9] : ARRAY OF CHAR;
  59.     value   [0] : ARRAY OF CHAR;
  60.     length  [1] : LONGINT )
  61.   : LONGINT;
  62.  
  63. END RexxUtil.
  64.